home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / TEXT FILE WRITER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  647b  |  21 lines
  1. 10  HOME : VTAB 10
  2. 20  DIM A$(300): DIM B$(300):I = 0
  3. 30 D$ =  CHR$(4): REM  CTRL D
  4. 40  PRINT 
  5. 50  PRINT "THIS PROGRAM LETS YOU WRITE TEXT AS EITHER QUESTIONS/ANSWERS OR PLAIN TEXT. DO NOT EXCEED 239 CHARACTERS."
  6. 60  PRINT 
  7. 70 I = I +1
  8. 80  PRINT "(PRESS THE RETURN KEY TO QUIT.)
  9. 90  FOR X = 1 TO 2000: NEXT X: HOME : VTAB 10: PRINT "PRINT QUESTION #";I;". ";
  10. 100  INPUT A$(I)
  11. 110  PRINT 
  12. 120  INPUT "WHAT IS THE ANSWER ? ";B$(I)
  13. 130  IF A$(I) < >"" GOTO 60
  14. 140  INPUT "WHAT FILE NAME? ";N$
  15. 150  PRINT D$;"OPEN ";N$
  16. 160  PRINT D$;"WRITE ";N$
  17. 170  PRINT I -1
  18. 180  FOR J = 1 TO I -1
  19. 190  PRINT A$(J): PRINT B$(J)
  20. 200  NEXT J
  21. 210  PRINT D$;"CLOSE ";N$